FM Towns: Software Contest 3/FM Towns Software Contest 3.iso/gear/for_fd/meeko/no1/attack.txt

Text File | 1994-01-07 | 486b | 26 lines

R=0.75
A$=GETS$("life",1)
A=VAL(A$)
L$=GETS$("level",1)
L=VAL(L$)
B$=GETS$("怪獣",1)
B=VAL(A$)
PUTS "あなた",STR$(A),0
CLRF "MES"
IF RND(R)<.3! THEN GOTO *DEFENCE ELSE GOTO *OFFENCE
*DEFENCE
X=INT(RND(R)*20)
MES$="怪獣が あなたに"+STR$(X)+"の 攻撃を与えた!"
PUTS "MES",MES$,0
A=A-X
PUTS "あなた",STR$(A),0
PUTS "life",STR$(A),0
END
*OFFENCE
X=INT(RND(R)*20)*L
MES$="あなたが 怪獣に"+STR$(X)+"の 攻撃を与えた!"
PUTS "MES",MES$,0
B=B-X
PUTS "怪獣",STR$(B),0
END